home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfsiblings.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  456b  |  29 lines
  1.  
  2. /* $Id: Pvmfsiblings.c,v 1.1 1997/06/27 17:05:05 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\src\pvmwin.h"
  6. #endif
  7. #include "pvm3.h"
  8. #include "pvm_consts.h"
  9.  
  10. void __fortran
  11. PVMFSIBLINGS (nsiblings, sibidx, stid)
  12. int *nsiblings, *sibidx, *stid;
  13. {
  14.     static int nsib = -1;
  15.     static int *sibs;
  16.     if (nsib == -1)
  17.         nsib = pvm_siblings(&sibs);
  18.  
  19.     *nsiblings = nsib;
  20.  
  21.     if (*sibidx >= 0 && *sibidx< nsib)
  22.     {
  23.         *stid = sibs[*sibidx];
  24.     }
  25.     else
  26.         *stid = PvmNoTask;
  27. }
  28.  
  29.